Attribute VB_Name = "模块1"
Sub color()
  Sheets("网络-整理").Select
  ' rownum = Range("D1000").End(xlUp).Row
  For Each c In Range("a2:a165")
    av = c.Value
    Set a = Sheets("机房模块四").Cells.Find(What:=av, After:=ActiveCell, LookIn:=xlFormulas, _
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, _
        MatchCase:=False, MatchByte:=False, SearchFormat:=False)
    If a Is Nothing Then
      Sheets("网络-整理").Range("A172").Value = Sheets("网络-整理").Range("A172").Value & " , " & av
      c.Interior.color = vbRed
    Else
       a.Interior.color = vbRed
    End If
    Set a = Nothing
    
  Next
   
End Sub
